home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / byt86jan.arc / LISTING.TXT < prev    next >
Text File  |  1985-12-27  |  1KB  |  27 lines
  1. 10 CLEAR
  2. 20 REM READ AND DISPLAY A/D CHANNELS 0-7
  3. 30 REM SINGLE ENDED OR DIFFERENTIAL
  4. 40 REM -5 TO +5 VOLT INPUT
  5. 50 REM
  6. 60 REM
  7. 70 N=47104 : REM BOARD ADDRESS
  8. 80 REM STATUS BIT IS B5 - LOGIC 1 IS RESET
  9. 90 FOR A=0 TO 7 : REM DO ALL CHANNELS 0-7
  10. 100 GOSUB 160 : REM READ A CHANNEL
  11. 110 NEXT A : REM NEXT CHANNEL
  12. 120 PRINT CHR(18),CHR(27),"Y" : REM TERMITE - HOME AND CLEAR SCREEN
  13. 130 REM DISPLAY ARRAY HOLDING CHANNEL 0-7 READINGS
  14. 140 PRINT USING(#.###),A(0),A(1),A(2),A(3),A(4),A(5),A(6),A(7),"VOLTS"
  15. 150 GOTO 20 : REM DO IT AGAIN
  16. 160 XBY(N)=A + 16 : REM RESET A/D AND SET MUX CHANNEL
  17. 170 XBY(N)=A : REM CLEAR STATUS BIT TO READ DATA
  18. 180 D1=XBY(N) : D2=XBY(N) : REM READ 12 BITS AS 2 SUCCESSIVE WORDS
  19. 190 R=.0012207 : REM VOLTS PER COUNT
  20. 200 IF DI>=240 THEN GOTO 230
  21. 210 A(A)=R*((D1*256)+D2) : REM SAVE POSITIVE READING IN ARRAY
  22. 220 RETURN
  23. 230 D1=255-D1 : D2=255-D2 : REM ADJUST D1 & D2 FOR 2'S COMPLEMENT
  24. 240 A(A)=-1*R*((D1*256)+D2) : REM SAVE NEGATIVE READING IN ARRAY
  25. 250 RETURN
  26.  
  27.